home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / rjkpro_1.lha / rjkpro_1 / drawgraph.amos / drawgraph.amosSourceCode
AMOS Source Code  |  1997-04-02  |  3KB  |  103 lines
  1. '----------------------------------------------------
  2. '                  draw graph v1.1 
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished o2/o4/1997 13:29:11
  10. '----------------------------------------------------  
  11.  
  12. Screen Open 0,640,512,4,Hires+Laced
  13. Flash Off 
  14. Curs Off 
  15. Cls 0
  16.  
  17. Palette $AAA,$FFF,$0,$78D,,,,,,,,,,,,,,$FED,$F40,$0
  18.  
  19. _DRAWGRAPH[Screen Width,Screen Height,Screen Width/2,Screen Height/2,32,1,1,2]
  20.  
  21. Repeat 
  22.    Multi Wait 
  23. Until Mouse Key<>0
  24.  
  25.  
  26.  
  27. Procedure _DRAWGRAPH[_WIDTH,_HEIGHT,_CENTREX,_CENTREY,_MAGNIFY,_PRECISION#,_PEN1,_PEN2]
  28.    
  29.    '_WIDTH....... Width of Screen 
  30.    '_HEIGHT...... Height of Screen
  31.    '_CENTREX..... X Coordinate for Centrum
  32.    '_CENTREY..... Y Coordinate for Centrum
  33.    '_MAGNIFY..... Magnification, Larger Number = Larger Magnifcation
  34.    '_PRECISION#.. Precision of Drawing, Smaller Number = More Precision (Max 1) 
  35.    '_PEN1........ Colour for Coordinate System, -1 = No Coordinate System 
  36.    '_PEN2........ Colour for Graph  
  37.    
  38.    If _PEN1=>0
  39.       
  40.       Ink _PEN1
  41.       
  42.       Draw _CENTREX,0 To _CENTREX,_HEIGHT
  43.       Draw 0,_CENTREY To _WIDTH,_CENTREY
  44.       
  45.       For X=_CENTREX To 0 Step -_MAGNIFY
  46.          Draw X,_CENTREY-4 To X,_CENTREY+4
  47.       Next 
  48.       
  49.       For X=_CENTREX To _WIDTH Step _MAGNIFY
  50.          Draw X,_CENTREY-4 To X,_CENTREY+4
  51.       Next 
  52.       
  53.       For Y=_CENTREY To 0 Step -_MAGNIFY
  54.          Draw _CENTREX-4,Y To _CENTREX+4,Y
  55.       Next 
  56.       
  57.       For Y=_CENTREY To _HEIGHT Step _MAGNIFY
  58.          Draw _CENTREX-4,Y To _CENTREX+4,Y
  59.       Next 
  60.       
  61.    End If 
  62.    
  63.    Ink _PEN2
  64.    
  65.    For X=0 To _WIDTH
  66.       
  67.       For A#=0 To 1-_PRECISION# Step _PRECISION#
  68.          
  69.          X#=X+A#
  70.          X#=X#-_CENTREX
  71.          X#=X#/_MAGNIFY
  72.          
  73.          '*** INSERT YOUR FUNCTION BELOW ***  
  74.          
  75.          'Function: f(x)=x� 
  76.          'Trap Y#=X#  
  77.          
  78.          'Function: f(x)=x� 
  79.          'Trap Y#=X#*X# 
  80.          
  81.          'Function: f(x)=x� 
  82.          'Trap Y#=X#*X#*X#  
  83.          
  84.          'Function: f(x)=1/x  
  85.          Trap Y#=1/X#
  86.          
  87.          '*** INSERT YOUR FUNCTION ABOVE ***  
  88.          
  89.          If Errtrap=0
  90.             
  91.             Y#=Y#*-1
  92.             
  93.             Y=Y#*_MAGNIFY
  94.             
  95.             Plot X,Y+_CENTREY
  96.             
  97.          End If 
  98.          
  99.       Next 
  100.       
  101.    Next 
  102.    
  103. End Proc